home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 28 / CD Expert nº 28.iso / V-Rally / SCRIPTS / MASTER.SCR
Text File  |  1999-01-27  |  4KB  |  273 lines
  1. /********************************/
  2. /* Master script for V-Rally PC */
  3. /* Edited by                    */
  4. /*     Craig Weeks              */
  5. /*     Don Williamson           */
  6. /*     (Aqua-Pacific, UK)       */
  7. /********************************/
  8.  
  9. [system]
  10. {
  11. master:
  12. cd "System"
  13. Install "System.grp"
  14. }
  15.  
  16. [info]
  17. {
  18. InstallDefines
  19. id "VRALLY"
  20. version "1.0"
  21. maker "ERE"
  22. }
  23.  
  24.  
  25. [classes]
  26. {
  27. SetPrefs 5,PRESENTATION
  28.     add "title",0,0,0
  29.  
  30. SetPrefs 5,ARCADE_EASY
  31.     add "Arcade_E",0,0,4
  32.  
  33. SetPrefs 5,ARCADE_MEDIUM
  34.     add "Arcade_M",0,0,6
  35.  
  36. SetPrefs 5,ARCADE_HARD
  37.     add "Arcade_X",0,0,8
  38.  
  39. SetPrefs 5,CHAMPIONSHIP
  40.     add "AC_INDO",0,0,3
  41.     add "AC_RAC",0,0,3
  42.     add "AC_CATA",0,0,3
  43.     add "AC_SAFA",0,0,3
  44.     add "AC_CORS",0,0,3
  45.     add "AC_ZELA",0,0,3
  46.     add "AC_MONA",0,0,3
  47.     add "AC_SUED",0,0,3
  48.  
  49. SetPrefs 5,TIME_ATTACK
  50.     add "Arcade_E",0,0,4
  51.     add "Arcade_M",0,0,6
  52.     add "Arcade_X",0,0,8
  53.     add "AC_INDO",0,0,3
  54.     add "AC_RAC",0,0,3
  55.     add "AC_CATA",0,0,3
  56.     add "AC_SAFA",0,0,3
  57.     add "AC_CORS",0,0,3
  58.     add "AC_ZELA",0,0,3
  59.     add "AC_MONA",0,0,3
  60.     add "AC_SUED",0,0,3
  61.  
  62. SetPrefs 5,DEMO
  63.     add "DemoScr",0,0,7
  64.  
  65. SetPrefs 5,CAR
  66.     add c_106,0,0,0
  67.     add c_saxo,0,0,0
  68.     add c_skoda,0,0,0
  69.     add c_nissan,0,0,1
  70.     add c_ibiza,0,0,1    
  71.     add c_megan2,0,0,1
  72.     add c_megane,0,0,1
  73.     add c_306,0,0,1
  74.     add c_ford,0,0,2
  75.     add c_mitsu,0,0,2
  76.     add c_subaru,0,0,2
  77.  
  78. }
  79.  
  80. [game]
  81. {
  82. //%VID=NTSC
  83. cd title
  84. %COMP=GetCompilation
  85.  
  86.  
  87. // below block added by CW7
  88. if (%COMP&2)
  89.     {
  90.     }
  91.  
  92.  
  93.  
  94. //install vrally.grp
  95. install snd.grp
  96.  
  97. %LANG=0
  98. %CLASS=PRESENTATION
  99. %STAGE=0
  100. %LEVEL=0
  101. %FLAGS=0
  102. %TIMER=0
  103. %WEATHER=0
  104. %TIME=0
  105. %ROAD=0
  106. %INFO=0
  107. %RET=0
  108. %W=GetScrWidth
  109. %H=GetScrHeight
  110. %SOUND=0
  111. %MOTOR=0
  112. %NUM_LEVELS=0
  113.  
  114.  
  115. while (1)
  116. {
  117. %NUM_LEVELS=%NUM_LEVELS+1
  118. %TIMER=0
  119.  
  120. // below block added by CW7
  121. if (!%LANG)
  122. {
  123.     SysExec "lang"
  124.     cd title
  125.  
  126.     %CLASS=GetPrefs 5
  127. //    %CLASS=DEMO                    // added by CW to show the demo
  128.     %LEVEL=GetPrefs 6
  129.     %STAGE=GetPrefs 7
  130. //    %STAGE=6                    // added by CW to show the demo
  131.     if (%CLASS!=DEMO)
  132.     {
  133.         %LANG=1
  134.         install title.grp        //Display V-Rally logo
  135.     }
  136. }
  137.  
  138.  
  139.  
  140.  
  141.  
  142. if (%CLASS==DEMO)
  143.     {
  144.     %TIMER=40*30
  145.     }
  146.  
  147. $LEVEL=GetLevelName,%CLASS,%LEVEL
  148.  
  149. call exec
  150.  
  151. %RET=GetGameRet
  152. switch (%RET)
  153.  {
  154.  case GAME_OVER
  155.      {
  156.      %CLASS=PRESENTATION
  157.      %LEVEL=0
  158.      }
  159.  case NEXT_RACE
  160.      {
  161.      %STAGE=%STAGE+1
  162.      }
  163.  case NEW_LEVEL
  164.      {
  165.      %CLASS=GetPrefs 5
  166.      %LEVEL=GetPrefs 6
  167.      %STAGE=GetPrefs 7
  168.      }
  169.  case MAIN_MENU
  170.      {
  171.      %CLASS=PRESENTATION
  172.      %LEVEL=0
  173.      }
  174.  case GAME_WON
  175.      {
  176.      SysExec "WellDone"
  177.      %CLASS=PRESENTATION
  178.      %LEVEL=0
  179.      }
  180.  }
  181. }
  182. //End of V-Rally.
  183. }
  184.  
  185.  
  186. [Exec]
  187. {
  188. %FLAGS=0
  189.  
  190. if ((%CLASS!=PRESENTATION)&&(%CLASS!=DEMO))
  191.     {
  192.     %INFO=1
  193.     call LoadExec
  194.     }
  195.  
  196. switch (%INFO)
  197.     {
  198.     case 0
  199.         {
  200.         call LoadExec
  201.         }
  202.     case 1
  203.         {
  204.         %RET=GetGameRet
  205.         %INFO=0
  206.         if (%RET!=MAIN_MENU)
  207.             {
  208.             call LoadExec
  209.             }
  210.         }
  211.     }
  212. }
  213.  
  214. [LoadExec]
  215. {
  216. NewLevel %TIMER
  217. SysExec $LEVEL
  218.  
  219. SetPrefs 5,%CLASS
  220. SetPrefs 6,%LEVEL
  221. SetPrefs 7,%STAGE
  222. SetPrefs 8,%ROAD
  223. SetPrefs 9,%WEATHER
  224. SetPrefs 10,%TIME
  225.  
  226. if (%CLASS==DEMO)
  227.     {
  228.     SetDirector 3
  229.     %FLAGS|=0x200
  230.     }
  231. if (%CLASS!=DEMO)
  232.     {
  233.     SetDirector 0
  234.     }
  235.  
  236. fade FADE_TO_BLACK
  237.  
  238. sound:
  239. SOUNDSYS INIT
  240.  
  241. if (%COMP&16)
  242. {
  243.     SOUNDSYS MUSIC INIT_CD
  244.     if (%CLASS==DEMO)
  245.     {
  246.     SOUNDSYS SET_TRACK 9
  247.     }
  248.     if (%CLASS!=PRESENTATION)
  249.     {
  250.     SOUNDSYS MUSIC PLAY
  251.     }
  252. }
  253.  
  254. master:
  255. RemoveDefines
  256. TermLevel
  257. GameLoop %FLAGS
  258. call GetNewPrefs
  259. InstallDefines
  260. }
  261.  
  262. [GetNewPrefs]
  263. {
  264.  
  265. UpdateRemotePrefs
  266. %CLASS=GetPrefs 5
  267. %LEVEL=GetPrefs 6
  268. %STAGE=GetPrefs 7
  269. %NUM_PLAYERS = GetPrefs 0
  270. %NUM_FAR_PLAYERS = GetPrefs 1
  271. }
  272.  
  273.